(use-package emms-mode-line-cycle
  :hook
  (emms-player-started . qrthi/emms-mode-line-cycle-enable)
  :custom
  (emms-show-format "%s")
  (emms-mode-line-format " [%s]")
  (emms-mode-line-cycle-max-width 16)
  (emms-mode-line-cycle-velocity 6)
  :preface
  (defun qrthi/emms-mode-line-cycle-enable ()
    (if (not emms-mode-line-cycle)
	(emms-mode-line-cycle))))
